/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / calendar / cal-dst.elc.z / cal-dst.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 36 3a 31 32 20 31 | 39 39 38 0a 3b 3b 3b 20 |:46:12 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 63 61 6c 65 |s-20.3/l|isp/cale|
|000000a0| 6e 64 61 72 2f 63 61 6c | 2d 64 73 74 2e 65 6c 0a |ndar/cal|-dst.el.|
|000000b0| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000c0| 6e 20 32 30 2e 34 20 22 | 45 6d 65 72 61 6c 64 22 |n 20.4 "|Emerald"|
|000000d0| 20 58 45 6d 61 63 73 20 | 20 4c 75 63 69 64 2e 0a | XEmacs | Lucid..|
|000000e0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000f0| 73 69 6f 6e 20 32 2e 32 | 35 20 58 45 6d 61 63 73 |sion 2.2|5 XEmacs|
|00000100| 3b 20 32 32 2d 4d 61 72 | 2d 39 36 2e 0a 3b 3b 3b |; 22-Mar|-96..;;;|
|00000110| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|00000120| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|00000130| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000140| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000150| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 39 2e 0a |st in Em|acs 19..|
|00000160| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000170| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000180| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000190| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|000001a0| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|000001b0| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|000001c0| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|000001d0| 76 65 72 73 69 6f 6e 20 | 22 32 30 22 29 29 29 0a |version |"20"))).|
|000001e0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 63 61 6c |    (err|or "`cal|
|000001f0| 2d 64 73 74 2e 65 6c 27 | 20 77 61 73 20 63 6f 6d |-dst.el'| was com|
|00000200| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|00000210| 32 30 22 29 29 0a 0a 28 | 6f 72 20 28 62 6f 75 6e |20"))..(|or (boun|
|00000220| 64 70 20 27 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |dp 'curr|ent-load|
|00000230| 2d 6c 69 73 74 29 20 28 | 73 65 74 71 20 63 75 72 |-list) (|setq cur|
|00000240| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 6e |rent-loa|d-list n|
|00000250| 69 6c 29 29 0a 0a 0a 28 | 72 65 71 75 69 72 65 20 |il))...(|require |
|00000260| 27 63 61 6c 65 6e 64 61 | 72 29 0a 23 40 34 39 20 |'calenda|r).#@49 |
|00000270| 43 61 63 68 65 20 66 6f | 72 20 72 65 73 75 6c 74 |Cache fo|r result|
|00000280| 20 6f 66 20 63 61 6c 65 | 6e 64 61 72 2d 63 75 72 | of cale|ndar-cur|
|00000290| 72 65 6e 74 2d 74 69 6d | 65 2d 7a 6f 6e 65 2e 1f |rent-tim|e-zone..|
|000002a0| 0a 28 64 65 66 76 61 72 | 20 63 61 6c 65 6e 64 61 |.(defvar| calenda|
|000002b0| 72 2d 63 75 72 72 65 6e | 74 2d 74 69 6d 65 2d 7a |r-curren|t-time-z|
|000002c0| 6f 6e 65 2d 63 61 63 68 | 65 20 6e 69 6c 20 28 23 |one-cach|e nil (#|
|000002d0| 24 20 2e 20 36 32 34 29 | 29 0a 23 40 34 39 20 41 |$ . 624)|).#@49 A|
|000002e0| 62 73 6f 6c 75 74 65 20 | 64 61 74 65 20 6f 66 20 |bsolute |date of |
|000002f0| 73 74 61 72 74 69 6e 67 | 20 64 61 74 65 20 6f 66 |starting| date of|
|00000300| 20 73 79 73 74 65 6d 20 | 63 6c 6f 63 6b 2e 1f 0a | system |clock...|
|00000310| 28 64 65 66 76 61 72 20 | 63 61 6c 65 6e 64 61 72 |(defvar |calendar|
|00000320| 2d 73 79 73 74 65 6d 2d | 74 69 6d 65 2d 62 61 73 |-system-|time-bas|
|00000330| 69 73 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |is (byte|-code ".|
|00000340| 19 c2 09 21 53 1b c4 09 | 21 c5 0b 5f 5c 5c 0b c6 |...!S...|!.._\\..|
|00000350| a5 5c 5c 0b c7 a5 5b 5c | 5c 0b c8 a5 5c 5c 2a 87 |.\\...[\|\...\\*.|
|00000360| 22 20 5b 28 31 20 31 20 | 31 39 37 30 29 20 64 61 |" [(1 1 |1970) da|
|00000370| 74 65 20 65 78 74 72 61 | 63 74 2d 63 61 6c 65 6e |te extra|ct-calen|
|00000380| 64 61 72 2d 79 65 61 72 | 20 70 72 69 6f 72 2d 79 |dar-year| prior-y|
|00000390| 65 61 72 73 20 63 61 6c | 65 6e 64 61 72 2d 64 61 |ears cal|endar-da|
|000003a0| 79 2d 6e 75 6d 62 65 72 | 20 33 36 35 20 34 20 31 |y-number| 365 4 1|
|000003b0| 30 30 20 34 30 30 5d 20 | 33 29 20 28 23 24 20 2e |00 400] |3) (#$ .|
|000003c0| 20 37 33 35 29 29 0a 23 | 40 33 38 39 20 41 62 73 | 735)).#|@389 Abs|
|000003d0| 6f 6c 75 74 65 20 6c 6f | 63 61 6c 20 64 61 74 65 |olute lo|cal date|
|000003e0| 20 6f 66 20 74 69 6d 65 | 20 58 3b 20 6c 6f 63 61 | of time| X; loca|
|000003f0| 6c 20 74 69 6d 65 20 69 | 73 20 55 54 43 2d 44 49 |l time i|s UTC-DI|
|00000400| 46 46 20 73 65 63 6f 6e | 64 73 20 66 72 6f 6d 20 |FF secon|ds from |
|00000410| 55 54 43 2e 0a 0a 58 20 | 69 73 20 28 48 49 47 48 |UTC...X |is (HIGH|
|00000420| 20 2e 20 4c 4f 57 29 20 | 6f 72 20 28 48 49 47 48 | . LOW) |or (HIGH|
|00000430| 20 4c 4f 57 20 2e 20 49 | 47 4e 4f 52 45 44 29 20 | LOW . I|GNORED) |
|00000440| 77 68 65 72 65 20 48 49 | 47 48 20 61 6e 64 20 4c |where HI|GH and L|
|00000450| 4f 57 20 61 72 65 20 74 | 68 65 0a 68 69 67 68 20 |OW are t|he.high |
|00000460| 61 6e 64 20 6c 6f 77 20 | 31 36 20 62 69 74 73 2c |and low |16 bits,|
|00000470| 20 72 65 73 70 65 63 74 | 69 76 65 6c 79 2c 20 6f | respect|ively, o|
|00000480| 66 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |f the nu|mber of |
|00000490| 73 65 63 6f 6e 64 73 20 | 73 69 6e 63 65 0a 31 39 |seconds |since.19|
|000004a0| 37 30 2d 30 31 2d 30 31 | 20 30 30 3a 30 30 3a 30 |70-01-01| 00:00:0|
|000004b0| 30 20 55 54 43 2c 20 69 | 67 6e 6f 72 69 6e 67 20 |0 UTC, i|gnoring |
|000004c0| 6c 65 61 70 20 73 65 63 | 6f 6e 64 73 2e 0a 0a 52 |leap sec|onds...R|
|000004d0| 65 74 75 72 6e 73 20 74 | 68 65 20 70 61 69 72 20 |eturns t|he pair |
|000004e0| 28 41 42 53 2d 44 41 54 | 45 20 2e 20 53 45 43 4f |(ABS-DAT|E . SECO|
|000004f0| 4e 44 53 29 20 77 68 65 | 72 65 20 53 45 43 4f 4e |NDS) whe|re SECON|
|00000500| 44 53 20 61 66 74 65 72 | 20 6c 6f 63 61 6c 20 6d |DS after| local m|
|00000510| 69 64 6e 69 67 68 74 20 | 6f 6e 0a 61 62 73 6f 6c |idnight |on.absol|
|00000520| 75 74 65 20 64 61 74 65 | 20 41 42 53 2d 44 41 54 |ute date| ABS-DAT|
|00000530| 45 20 69 73 20 74 68 65 | 20 65 71 75 69 76 61 6c |E is the| equival|
|00000540| 65 6e 74 20 6d 6f 6d 65 | 6e 74 20 74 6f 20 58 2e |ent mome|nt to X.|
|00000550| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 61 6c |..(defal|ias 'cal|
|00000560| 65 6e 64 61 72 2d 61 62 | 73 6f 6c 75 74 65 2d 66 |endar-ab|solute-f|
|00000570| 72 6f 6d 2d 74 69 6d 65 | 20 23 5b 28 78 20 75 74 |rom-time| #[(x ut|
|00000580| 63 2d 64 69 66 66 29 20 | 22 08 40 19 08 41 1a 0b |c-diff) |".@..A..|
|00000590| 5c 6e a7 ab 83 5c 6e aa | 82 5c 6e 40 5c 5c 1c c5 |\n...\n.|.\n@\\..|
|000005a0| 09 c6 5c 22 c7 5f c8 0c | c9 5c 22 5c 5c 1e 5c 6e |..\"._..|.\"\\.\n|
|000005b0| 0e 0b c8 09 c6 5c 22 c7 | 5f 5c 5c c8 0e 5c 6e c6 |.....\".|_\\..\n.|
|000005c0| 5c 22 5c 5c c5 0e 5c 6e | c6 5c 22 c9 5f c5 0c c9 |\"\\..\n|.\"._...|
|000005d0| 5c 22 5c 5c 2c 42 87 22 | 20 5b 78 20 68 20 78 74 |\"\\,B."| [x h xt|
|000005e0| 61 69 6c 20 75 74 63 2d | 64 69 66 66 20 6c 20 6d |ail utc-|diff l m|
|000005f0| 6f 64 20 36 37 35 20 35 | 31 32 20 66 6c 6f 6f 72 |od 675 5|12 floor|
|00000600| 20 31 32 38 20 75 20 63 | 61 6c 65 6e 64 61 72 2d | 128 u c|alendar-|
|00000610| 73 79 73 74 65 6d 2d 74 | 69 6d 65 2d 62 61 73 69 |system-t|ime-basi|
|00000620| 73 5d 20 35 20 28 23 24 | 20 2e 20 39 37 33 29 5d |s] 5 (#$| . 973)]|
|00000630| 29 0a 23 40 33 31 35 20 | 54 69 6d 65 20 6f 66 20 |).#@315 |Time of |
|00000640| 61 62 73 6f 6c 75 74 65 | 20 64 61 74 65 20 41 42 |absolute| date AB|
|00000650| 53 2d 44 41 54 45 2c 20 | 53 20 73 65 63 6f 6e 64 |S-DATE, |S second|
|00000660| 73 20 61 66 74 65 72 20 | 6d 69 64 6e 69 67 68 74 |s after |midnight|
|00000670| 2e 0a 0a 52 65 74 75 72 | 6e 73 20 74 68 65 20 70 |...Retur|ns the p|
|00000680| 61 69 72 20 28 48 49 47 | 48 20 2e 20 4c 4f 57 29 |air (HIG|H . LOW)|
|00000690| 20 77 68 65 72 65 20 48 | 49 47 48 20 61 6e 64 20 | where H|IGH and |
|000006a0| 4c 4f 57 20 61 72 65 20 | 74 68 65 20 68 69 67 68 |LOW are |the high|
|000006b0| 20 61 6e 64 20 6c 6f 77 | 0a 31 36 20 62 69 74 73 | and low|.16 bits|
|000006c0| 2c 20 72 65 73 70 65 63 | 74 69 76 65 6c 79 2c 20 |, respec|tively, |
|000006d0| 6f 66 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |of the n|umber of|
|000006e0| 20 73 65 63 6f 6e 64 73 | 20 31 39 37 30 2d 30 31 | seconds| 1970-01|
|000006f0| 2d 30 31 20 30 30 3a 30 | 30 3a 30 30 20 55 54 43 |-01 00:0|0:00 UTC|
|00000700| 2c 0a 69 67 6e 6f 72 69 | 6e 67 20 6c 65 61 70 20 |,.ignori|ng leap |
|00000710| 73 65 63 6f 6e 64 73 2c | 20 74 68 61 74 20 69 73 |seconds,| that is|
|00000720| 20 74 68 65 20 65 71 75 | 69 76 61 6c 65 6e 74 20 | the equ|ivalent |
|00000730| 6d 6f 6d 65 6e 74 20 74 | 6f 20 53 20 73 65 63 6f |moment t|o S seco|
|00000740| 6e 64 73 20 61 66 74 65 | 72 0a 6d 69 64 6e 69 67 |nds afte|r.midnig|
|00000750| 68 74 20 55 54 43 20 6f | 6e 20 61 62 73 6f 6c 75 |ht UTC o|n absolu|
|00000760| 74 65 20 64 61 74 65 20 | 41 42 53 2d 44 41 54 45 |te date |ABS-DATE|
|00000770| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 61 |...(defa|lias 'ca|
|00000780| 6c 65 6e 64 61 72 2d 74 | 69 6d 65 2d 66 72 6f 6d |lendar-t|ime-from|
|00000790| 2d 61 62 73 6f 6c 75 74 | 65 20 23 5b 28 61 62 73 |-absolut|e #[(abs|
|000007a0| 2d 64 61 74 65 20 73 29 | 20 22 08 09 5a 1a c3 5c |-date s)| "..Z..\|
|000007b0| 6e c4 5c 22 c5 5f c6 0e | 07 c8 5c 22 5c 5c 1e 09 |n.\"._..|..\"\\..|
|000007c0| 5c 6e c6 5c 6e c4 5c 22 | c5 5f 5c 5c c6 0e 09 c4 |\n.\n.\"|._\\....|
|000007d0| 5c 22 5c 5c c3 0e 09 c4 | 5c 22 c8 5f c3 0e 07 c8 |\"\\....|\"._....|
|000007e0| 5c 22 5c 5c 2a 42 87 22 | 20 5b 61 62 73 2d 64 61 |\"\\*B."| [abs-da|
|000007f0| 74 65 20 63 61 6c 65 6e | 64 61 72 2d 73 79 73 74 |te calen|dar-syst|
|00000800| 65 6d 2d 74 69 6d 65 2d | 62 61 73 69 73 20 61 20 |em-time-|basis a |
|00000810| 6d 6f 64 20 35 31 32 20 | 31 36 33 20 66 6c 6f 6f |mod 512 |163 floo|
|00000820| 72 20 73 20 31 32 38 20 | 75 5d 20 35 20 28 23 24 |r s 128 |u] 5 (#$|
|00000830| 20 2e 20 31 35 39 32 29 | 5d 29 0a 23 40 31 38 31 | . 1592)|]).#@181|
|00000840| 20 52 65 74 75 72 6e 20 | 74 68 65 20 74 69 6d 65 | Return |the time|
|00000850| 20 6f 66 20 74 68 65 20 | 6e 65 78 74 20 74 69 6d | of the |next tim|
|00000860| 65 20 7a 6f 6e 65 20 74 | 72 61 6e 73 69 74 69 6f |e zone t|ransitio|
|00000870| 6e 20 61 66 74 65 72 20 | 54 49 4d 45 2e 0a 42 6f |n after |TIME..Bo|
|00000880| 74 68 20 54 49 4d 45 20 | 61 6e 64 20 74 68 65 20 |th TIME |and the |
|00000890| 72 65 73 75 6c 74 20 61 | 72 65 20 61 63 63 65 70 |result a|re accep|
|000008a0| 74 61 62 6c 65 20 61 72 | 67 75 6d 65 6e 74 73 20 |table ar|guments |
|000008b0| 74 6f 20 63 75 72 72 65 | 6e 74 2d 74 69 6d 65 2d |to curre|nt-time-|
|000008c0| 7a 6f 6e 65 2e 0a 52 65 | 74 75 72 6e 20 6e 69 6c |zone..Re|turn nil|
|000008d0| 20 69 66 20 6e 6f 20 73 | 75 63 68 20 74 72 61 6e | if no s|uch tran|
|000008e0| 73 69 74 69 6f 6e 20 63 | 61 6e 20 62 65 20 66 6f |sition c|an be fo|
|000008f0| 75 6e 64 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |und...(d|efalias |
|00000900| 27 63 61 6c 65 6e 64 61 | 72 2d 6e 65 78 74 2d 74 |'calenda|r-next-t|
|00000910| 69 6d 65 2d 7a 6f 6e 65 | 2d 74 72 61 6e 73 69 74 |ime-zone|-transit|
|00000920| 69 6f 6e 20 23 5b 28 74 | 69 6d 65 29 20 22 c0 19 |ion #[(t|ime) "..|
|00000930| c2 1b c4 0d 21 89 1e 06 | 40 1e 07 c8 1e 09 c8 1e |....!...|@.......|
|00000940| 5c 6e 0e 07 1e 0b cc 1e | 0d 0e 07 0e 0b 61 ab 9e |\n......|.....a..|
|00000950| 0d 40 0e 0d 40 0b 5f 5c | 5c ce 42 16 09 c4 0e 09 |.@..@._\|\.B.....|
|00000960| 21 89 16 5c 6e 40 16 0b | 0e 0d 41 89 16 0d ac 5b |!..\n@..|..A....[|
|00000970| 0e 07 ad f9 0e 0b ad f5 | 0e 07 0e 0b 61 3f ad ed |........|....a?..|
|00000980| 0d 41 1e 0f 0d 40 0e 0f | a7 ab 84 0e 0f aa 83 0e |.A...@..|........|
|00000990| 0f 40 42 1e 10 c8 1e 11 | 0e 10 41 0e 09 41 5c 5c |.@B.....|..A..A\\|
|000009a0| 1e 12 0e 10 40 0e 09 40 | 5c 5c 0e 12 09 a5 5c 5c |....@..@|\\....\\|
|000009b0| 1e 13 d4 0e 13 d5 5c 22 | 1e 16 0e 13 0e 16 5a d7 |......\"|......Z.|
|000009c0| a5 0e 16 09 5f 0e 12 09 | a6 5c 5c d7 a5 42 16 11 |...._...|.\\..B..|
|000009d0| 0e 10 0e 11 2b 6b ac 97 | c4 0e 11 21 40 0e 0b 61 |....+k..|...!@..a|
|000009e0| ab 86 0e 11 16 09 aa 35 | 0e 11 89 16 10 aa 30 0e |.......5|......0.|
|000009f0| 09 2b 2e 08 87 22 20 5b | 36 35 35 33 36 20 62 61 |.+..." [|65536 ba|
|00000a00| 73 65 20 31 32 30 20 71 | 75 61 72 74 65 72 2d 6d |se 120 q|uarter-m|
|00000a10| 75 6c 74 69 70 6c 65 20 | 63 75 72 72 65 6e 74 2d |ultiple |current-|
|00000a20| 74 69 6d 65 2d 7a 6f 6e | 65 20 74 69 6d 65 20 74 |time-zon|e time t|
|00000a30| 69 6d 65 2d 7a 6f 6e 65 | 20 74 69 6d 65 2d 75 74 |ime-zone| time-ut|
|00000a40| 63 2d 64 69 66 66 20 6e | 69 6c 20 68 69 20 68 69 |c-diff n|il hi hi|
|00000a50| 2d 7a 6f 6e 65 20 68 69 | 2d 75 74 63 2d 64 69 66 |-zone hi|-utc-dif|
|00000a60| 66 20 28 32 20 31 20 33 | 29 20 71 75 61 72 74 65 |f (2 1 3|) quarte|
|00000a70| 72 73 20 30 20 74 61 69 | 6c 20 6c 6f 20 70 72 6f |rs 0 tai|l lo pro|
|00000a80| 62 65 20 6c 73 75 6d 20 | 68 73 75 6d 20 6c 6f 67 |be lsum |hsum log|
|00000a90| 61 6e 64 20 31 20 68 73 | 75 6d 6f 64 64 20 32 5d |and 1 hs|umodd 2]|
|00000aa0| 20 35 20 28 23 24 20 2e | 20 32 31 31 33 29 5d 29 | 5 (#$ .| 2113)])|
|00000ab0| 0a 23 40 32 32 30 20 52 | 65 74 75 72 6e 20 64 61 |.#@220 R|eturn da|
|00000ac0| 79 6c 69 67 68 74 20 74 | 72 61 6e 73 69 74 69 6f |ylight t|ransitio|
|00000ad0| 6e 20 72 75 6c 65 20 66 | 6f 72 20 41 42 53 2d 44 |n rule f|or ABS-D|
|00000ae0| 41 54 45 2c 20 55 54 43 | 2d 44 49 46 46 20 73 65 |ATE, UTC|-DIFF se|
|00000af0| 63 20 6f 66 66 73 65 74 | 20 66 72 6f 6d 20 55 54 |c offset| from UT|
|00000b00| 43 2e 0a 41 42 53 2d 44 | 49 46 46 20 6d 75 73 74 |C..ABS-D|IFF must|
|00000b10| 20 73 70 65 63 69 66 79 | 20 61 20 64 61 79 20 74 | specify| a day t|
|00000b20| 68 61 74 20 63 6f 6e 74 | 61 69 6e 73 20 61 20 64 |hat cont|ains a d|
|00000b30| 61 79 6c 69 67 68 74 20 | 73 61 76 69 6e 67 73 20 |aylight |savings |
|00000b40| 74 72 61 6e 73 69 74 69 | 6f 6e 2e 0a 54 68 65 20 |transiti|on..The |
|00000b50| 72 65 73 75 6c 74 20 68 | 61 73 20 74 68 65 20 70 |result h|as the p|
|00000b60| 72 6f 70 65 72 20 66 6f | 72 6d 20 66 6f 72 20 63 |roper fo|rm for c|
|00000b70| 61 6c 65 6e 64 61 72 2d | 64 61 79 6c 69 67 68 74 |alendar-|daylight|
|00000b80| 2d 73 61 76 69 6e 67 73 | 2d 73 74 61 72 74 73 27 |-savings|-starts'|
|00000b90| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 61 |...(defa|lias 'ca|
|00000ba0| 6c 65 6e 64 61 72 2d 74 | 69 6d 65 2d 7a 6f 6e 65 |lendar-t|ime-zone|
|00000bb0| 2d 64 61 79 6c 69 67 68 | 74 2d 72 75 6c 65 73 20 |-dayligh|t-rules |
|00000bc0| 23 5b 28 61 62 73 2d 64 | 61 74 65 20 75 74 63 2d |#[(abs-d|ate utc-|
|00000bd0| 64 69 66 66 29 20 22 c0 | 09 21 1a 09 c3 a6 1c 5c |diff) ".|.!.....\|
|00000be0| 6e 89 1a 40 29 1d 5c 6e | 89 1a 41 40 29 1e 06 5c |n..@).\n|..A@)..\|
|00000bf0| 6e 89 1a 41 41 40 29 1e | 07 0d 0e 07 1e 08 89 1e |n..AA@).|........|
|00000c00| 09 ca 55 ab 89 cb 0e 08 | 21 ab 83 cc aa 85 cd 0e |..U.....|!.......|
|00000c10| 09 53 48 2a 1e 0e cf d0 | 0d 0e 06 c8 46 43 0e 06 |.SH*....|....FC..|
|00000c20| d1 57 ad 88 d2 d3 0c 0d | c8 af 05 43 0e 06 0e 0e |.W......|...C....|
|00000c30| c3 5a 56 ad 88 d2 d4 0c | 0d c8 af 05 43 d5 1e 16 |.ZV.....|....C...|
|00000c40| ca 0e 06 d7 5a 5d 53 1e | 18 0e 06 0e 0e d1 5a 5e |....Z]S.|......Z^|
|00000c50| 0e 18 54 89 16 18 59 ab | 90 d2 d3 0c 0d c8 0e 18 |..T...Y.|........|
|00000c60| af 06 0e 16 42 16 16 aa | 60 29 0e 16 29 24 1e 19 |....B...|`)..)$..|
|00000c70| d4 0e 1a 5a 1e 1b 0e 07 | 54 1e 08 0e 19 d5 1e 1c |...Z....|T.......|
|00000c80| 1e 1d 0e 1d 40 89 1e 1e | 40 d2 61 ab 89 df e0 0e |....@...|@.a.....|
|00000c90| 1e 41 42 21 aa b6 0e 1e | 40 c0 61 ab 88 df 0e 1e |.AB!....|@.a.....|
|00000ca0| 41 40 21 aa a7 df 0e 1e | 21 89 1e 21 1a e2 5c 6e |A@!.....|!..!..\n|
|00000cb0| 21 53 1e 23 e4 5c 6e 21 | e5 0e 23 5f 5c 5c 0e 23 |!S.#.\n!|..#_\\.#|
|00000cc0| e6 a5 5c 5c 0e 23 e7 a5 | 5b 5c 5c 0e 23 e8 a5 5c |..\\.#..|[\\.#..\|
|00000cd0| 5c 2b 1a e9 ea 5c 6e 0e | 1b 5c 22 21 e9 ea 5c 6e |\+...\n.|.\"!..\n|
|00000ce0| 54 0e 1b 5c 22 21 6b ac | 87 0e 1e 0e 1c 42 16 1c |T..\"!k.|.....B..|
|00000cf0| 0e 1d 41 89 16 1d 2a ac | 13 0e 1c ab 85 0e 1c 9f |..A...*.|........|
|00000d00| aa 84 0e 19 40 43 16 19 | 0e 08 54 16 08 0e 19 41 |....@C..|..T....A|
|00000d10| 2a 84 a1 00 0e 19 40 2e | 09 87 22 20 5b 63 61 6c |*.....@.|.." [cal|
|00000d20| 65 6e 64 61 72 2d 67 72 | 65 67 6f 72 69 61 6e 2d |endar-gr|egorian-|
|00000d30| 66 72 6f 6d 2d 61 62 73 | 6f 6c 75 74 65 20 61 62 |from-abs|olute ab|
|00000d40| 73 2d 64 61 74 65 20 64 | 61 74 65 20 37 20 77 65 |s-date d|ate 7 we|
|00000d50| 65 6b 64 61 79 20 6d 20 | 64 20 79 20 79 65 61 72 |ekday m |d y year|
|00000d60| 20 6d 6f 6e 74 68 20 32 | 20 63 61 6c 65 6e 64 61 | month 2| calenda|
|00000d70| 72 2d 6c 65 61 70 2d 79 | 65 61 72 2d 70 20 32 39 |r-leap-y|ear-p 29|
|00000d80| 20 5b 33 31 20 32 38 20 | 33 31 20 33 30 20 33 31 | [31 28 |31 30 31|
|00000d90| 20 33 30 20 33 31 20 33 | 31 20 33 30 20 33 31 20 | 30 31 3|1 30 31 |
|00000da0| 33 30 20 33 31 5d 20 6c | 61 73 74 20 61 70 70 65 |30 31] l|ast appe|
|00000db0| 6e 64 20 6c 69 73 74 20 | 38 20 63 61 6c 65 6e 64 |nd list |8 calend|
|00000dc0| 61 72 2d 6e 74 68 2d 6e | 61 6d 65 64 2d 64 61 79 |ar-nth-n|amed-day|
|00000dd0| 20 31 20 2d 31 20 6e 69 | 6c 20 6c 20 36 20 6a 20 | 1 -1 ni|l l 6 j |
|00000de0| 63 61 6e 64 69 64 61 74 | 65 2d 72 75 6c 65 73 20 |candidat|e-rules |
|00000df0| 75 74 63 2d 64 69 66 66 | 20 70 72 65 76 64 61 79 |utc-diff| prevday|
|00000e00| 2d 73 65 63 20 6e 65 77 | 2d 72 75 6c 65 73 20 72 |-sec new|-rules r|
|00000e10| 75 6c 65 73 20 72 75 6c | 65 20 65 76 61 6c 20 63 |ules rul|e eval c|
|00000e20| 61 6c 65 6e 64 61 72 2d | 6e 74 68 2d 6e 61 6d 65 |alendar-|nth-name|
|00000e30| 64 2d 61 62 73 64 61 79 | 20 67 20 65 78 74 72 61 |d-absday| g extra|
|00000e40| 63 74 2d 63 61 6c 65 6e | 64 61 72 2d 79 65 61 72 |ct-calen|dar-year|
|00000e50| 20 70 72 69 6f 72 2d 79 | 65 61 72 73 20 63 61 6c | prior-y|ears cal|
|00000e60| 65 6e 64 61 72 2d 64 61 | 79 2d 6e 75 6d 62 65 72 |endar-da|y-number|
|00000e70| 20 33 36 35 20 34 20 31 | 30 30 20 34 30 30 20 63 | 365 4 1|00 400 c|
|00000e80| 75 72 72 65 6e 74 2d 74 | 69 6d 65 2d 7a 6f 6e 65 |urrent-t|ime-zone|
|00000e90| 20 63 61 6c 65 6e 64 61 | 72 2d 74 69 6d 65 2d 66 | calenda|r-time-f|
|00000ea0| 72 6f 6d 2d 61 62 73 6f | 6c 75 74 65 5d 20 31 31 |rom-abso|lute] 11|
|00000eb0| 20 28 23 24 20 2e 20 32 | 37 34 33 29 5d 29 0a 23 | (#$ . 2|743)]).#|
|00000ec0| 40 31 33 36 37 20 52 65 | 74 75 72 6e 20 55 54 43 |@1367 Re|turn UTC|
|00000ed0| 20 64 69 66 66 65 72 65 | 6e 63 65 2c 20 64 73 74 | differe|nce, dst|
|00000ee0| 20 6f 66 66 73 65 74 2c | 20 6e 61 6d 65 73 20 61 | offset,| names a|
|00000ef0| 6e 64 20 72 75 6c 65 73 | 20 66 6f 72 20 63 75 72 |nd rules| for cur|
|00000f00| 72 65 6e 74 20 74 69 6d | 65 20 7a 6f 6e 65 2e 0a |rent tim|e zone..|
|00000f10| 0a 52 65 74 75 72 6e 73 | 20 28 55 54 43 2d 44 49 |.Returns| (UTC-DI|
|00000f20| 46 46 20 44 53 54 2d 4f | 46 46 53 45 54 20 53 54 |FF DST-O|FFSET ST|
|00000f30| 44 2d 5a 4f 4e 45 20 44 | 53 54 2d 5a 4f 4e 45 20 |D-ZONE D|ST-ZONE |
|00000f40| 44 53 54 2d 53 54 41 52 | 54 53 20 44 53 54 2d 45 |DST-STAR|TS DST-E|
|00000f50| 4e 44 53 0a 44 53 54 2d | 53 54 41 52 54 53 2d 54 |NDS.DST-|STARTS-T|
|00000f60| 49 4d 45 20 44 53 54 2d | 45 4e 44 53 2d 54 49 4d |IME DST-|ENDS-TIM|
|00000f70| 45 29 2c 20 62 61 73 65 | 64 20 6f 6e 20 61 20 68 |E), base|d on a h|
|00000f80| 65 75 72 69 73 74 69 63 | 20 70 72 6f 62 69 6e 67 |euristic| probing|
|00000f90| 20 6f 66 20 77 68 61 74 | 20 74 68 65 0a 73 79 73 | of what| the.sys|
|00000fa0| 74 65 6d 20 6b 6e 6f 77 | 73 3a 0a 0a 55 54 43 2d |tem know|s:..UTC-|
|00000fb0| 44 49 46 46 20 69 73 20 | 61 6e 20 69 6e 74 65 67 |DIFF is |an integ|
|00000fc0| 65 72 20 73 70 65 63 69 | 66 79 69 6e 67 20 74 68 |er speci|fying th|
|00000fd0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 6d 69 6e 75 |e number| of minu|
|00000fe0| 74 65 73 20 64 69 66 66 | 65 72 65 6e 63 65 20 62 |tes diff|erence b|
|00000ff0| 65 74 77 65 65 6e 0a 20 | 20 20 20 73 74 61 6e 64 |etween. |   stand|
|00001000| 61 72 64 20 74 69 6d 65 | 20 69 6e 20 74 68 65 20 |ard time| in the |
|00001010| 63 75 72 72 65 6e 74 20 | 74 69 6d 65 20 7a 6f 6e |current |time zon|
|00001020| 65 20 61 6e 64 20 43 6f | 6f 72 64 69 6e 61 74 65 |e and Co|ordinate|
|00001030| 64 20 55 6e 69 76 65 72 | 73 61 6c 20 54 69 6d 65 |d Univer|sal Time|
|00001040| 0a 20 20 20 20 28 47 72 | 65 65 6e 77 69 63 68 20 |.    (Gr|eenwich |
|00001050| 4d 65 61 6e 20 54 69 6d | 65 29 2e 20 20 41 20 6e |Mean Tim|e).  A n|
|00001060| 65 67 61 74 69 76 65 20 | 76 61 6c 75 65 20 6d 65 |egative |value me|
|00001070| 61 6e 73 20 77 65 73 74 | 20 6f 66 20 47 72 65 65 |ans west| of Gree|
|00001080| 6e 77 69 63 68 2e 0a 44 | 53 54 2d 4f 46 46 53 45 |nwich..D|ST-OFFSE|
|00001090| 54 20 69 73 20 61 6e 20 | 69 6e 74 65 67 65 72 20 |T is an |integer |
|000010a0| 67 69 76 69 6e 67 20 74 | 68 65 20 64 61 79 6c 69 |giving t|he dayli|
|000010b0| 67 68 74 20 73 61 76 69 | 6e 67 73 20 74 69 6d 65 |ght savi|ngs time|
|000010c0| 20 6f 66 66 73 65 74 20 | 69 6e 20 6d 69 6e 75 74 | offset |in minut|
|000010d0| 65 73 2e 0a 53 54 44 2d | 5a 4f 4e 45 20 69 73 20 |es..STD-|ZONE is |
|000010e0| 61 20 73 74 72 69 6e 67 | 20 67 69 76 69 6e 67 20 |a string| giving |
|000010f0| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 65 20 |the name| of the |
|00001100| 74 69 6d 65 20 7a 6f 6e | 65 20 77 68 65 6e 20 6e |time zon|e when n|
|00001110| 6f 20 73 65 61 73 6f 6e | 61 6c 20 74 69 6d 65 0a |o season|al time.|
|00001120| 20 20 20 20 61 64 6a 75 | 73 74 6d 65 6e 74 20 69 |    adju|stment i|
|00001130| 73 20 69 6e 20 65 66 66 | 65 63 74 2e 0a 44 53 54 |s in eff|ect..DST|
|00001140| 2d 5a 4f 4e 45 20 69 73 | 20 61 20 73 74 72 69 6e |-ZONE is| a strin|
|00001150| 67 20 67 69 76 69 6e 67 | 20 74 68 65 20 6e 61 6d |g giving| the nam|
|00001160| 65 20 6f 66 20 74 68 65 | 20 74 69 6d 65 20 7a 6f |e of the| time zo|
|00001170| 6e 65 20 77 68 65 6e 20 | 74 68 65 72 65 20 69 73 |ne when |there is|
|00001180| 20 61 20 73 65 61 73 6f | 6e 61 6c 0a 20 20 20 20 | a seaso|nal.    |
|00001190| 74 69 6d 65 20 61 64 6a | 75 73 74 6d 65 6e 74 20 |time adj|ustment |
|000011a0| 69 6e 20 65 66 66 65 63 | 74 2e 0a 44 53 54 2d 53 |in effec|t..DST-S|
|000011b0| 54 41 52 54 53 20 61 6e | 64 20 44 53 54 2d 45 4e |TARTS an|d DST-EN|
|000011c0| 44 53 20 61 72 65 20 73 | 65 78 70 73 20 69 6e 20 |DS are s|exps in |
|000011d0| 74 68 65 20 76 61 72 69 | 61 62 6c 65 20 60 79 65 |the vari|able `ye|
|000011e0| 61 72 27 20 67 69 76 69 | 6e 67 20 74 68 65 20 64 |ar' givi|ng the d|
|000011f0| 61 79 6c 69 67 68 74 0a | 20 20 20 20 73 61 76 69 |aylight.|    savi|
|00001200| 6e 67 73 20 74 69 6d 65 | 20 73 74 61 72 74 20 61 |ngs time| start a|
|00001210| 6e 64 20 65 6e 64 20 72 | 75 6c 65 73 2c 20 69 6e |nd end r|ules, in|
|00001220| 20 74 68 65 20 66 6f 72 | 6d 20 65 78 70 65 63 74 | the for|m expect|
|00001230| 65 64 20 62 79 0a 20 20 | 20 20 60 63 61 6c 65 6e |ed by.  |  `calen|
|00001240| 64 61 72 2d 64 61 79 6c | 69 67 68 74 2d 73 61 76 |dar-dayl|ight-sav|
|00001250| 69 6e 67 73 2d 73 74 61 | 72 74 73 27 2e 0a 44 53 |ings-sta|rts'..DS|
|00001260| 54 2d 53 54 41 52 54 53 | 2d 54 49 4d 45 20 61 6e |T-STARTS|-TIME an|
|00001270| 64 20 44 53 54 2d 45 4e | 44 53 2d 54 49 4d 45 20 |d DST-EN|DS-TIME |
|00001280| 61 72 65 20 69 6e 74 65 | 67 65 72 73 20 67 69 76 |are inte|gers giv|
|00001290| 69 6e 67 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |ing the |number o|
|000012a0| 66 20 6d 69 6e 75 74 65 | 73 0a 20 20 20 20 61 66 |f minute|s.    af|
|000012b0| 74 65 72 20 6d 69 64 6e | 69 67 68 74 20 74 68 61 |ter midn|ight tha|
|000012c0| 74 20 64 61 79 6c 69 67 | 68 74 20 73 61 76 69 6e |t daylig|ht savin|
|000012d0| 67 73 20 74 69 6d 65 20 | 73 74 61 72 74 73 20 61 |gs time |starts a|
|000012e0| 6e 64 20 65 6e 64 73 2e | 0a 0a 49 66 20 74 68 65 |nd ends.|..If the|
|000012f0| 20 6c 6f 63 61 6c 20 61 | 72 65 61 20 64 6f 65 73 | local a|rea does|
|00001300| 20 6e 6f 74 20 75 73 65 | 20 61 20 73 65 61 73 6f | not use| a seaso|
|00001310| 6e 61 6c 20 74 69 6d 65 | 20 61 64 6a 75 73 74 6d |nal time| adjustm|
|00001320| 65 6e 74 2c 20 53 54 44 | 2d 5a 4f 4e 45 20 61 6e |ent, STD|-ZONE an|
|00001330| 64 0a 44 53 54 2d 5a 4f | 4e 45 20 61 72 65 20 65 |d.DST-ZO|NE are e|
|00001340| 71 75 61 6c 2c 20 61 6e | 64 20 61 6c 6c 20 74 68 |qual, an|d all th|
|00001350| 65 20 44 53 54 2d 2a 20 | 69 6e 74 65 67 65 72 20 |e DST-* |integer |
|00001360| 76 61 72 69 61 62 6c 65 | 73 20 61 72 65 20 30 2e |variable|s are 0.|
|00001370| 0a 0a 53 6f 6d 65 20 6f | 70 65 72 61 74 69 6e 67 |..Some o|perating|
|00001380| 20 73 79 73 74 65 6d 73 | 20 63 61 6e 6e 6f 74 20 | systems| cannot |
|00001390| 70 72 6f 76 69 64 65 20 | 61 6c 6c 20 74 68 69 73 |provide |all this|
|000013a0| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 74 6f 20 | informa|tion to |
|000013b0| 45 6d 61 63 73 3b 20 69 | 6e 20 74 68 69 73 0a 63 |Emacs; i|n this.c|
|000013c0| 61 73 65 2c 20 60 63 61 | 6c 65 6e 64 61 72 2d 63 |ase, `ca|lendar-c|
|000013d0| 75 72 72 65 6e 74 2d 74 | 69 6d 65 2d 7a 6f 6e 65 |urrent-t|ime-zone|
|000013e0| 27 20 72 65 74 75 72 6e | 73 20 61 20 6c 69 73 74 |' return|s a list|
|000013f0| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 6e 69 6c 20 | contain|ing nil |
|00001400| 66 6f 72 20 74 68 65 20 | 64 61 74 61 0a 69 74 20 |for the |data.it |
|00001410| 63 61 6e 27 74 20 66 69 | 6e 64 2e 1f 0a 28 64 65 |can't fi|nd...(de|
|00001420| 66 61 6c 69 61 73 20 27 | 63 61 6c 65 6e 64 61 72 |falias '|calendar|
|00001430| 2d 63 75 72 72 65 6e 74 | 2d 74 69 6d 65 2d 7a 6f |-current|-time-zo|
|00001440| 6e 65 20 23 5b 6e 69 6c | 20 22 08 86 bc 00 c1 20 |ne #[nil| "..... |
|00001450| 1a c3 5c 6e 21 89 1c 40 | 1d 0c 41 40 1e 06 0d ac |..\n!..@|..A@....|
|00001460| 8e c7 89 0e 06 89 c7 89 | 89 89 af 08 82 b9 00 c8 |........|........|
|00001470| 5c 6e 21 89 1e 09 ad 84 | c8 0e 09 21 89 1e 5c 6e |\n!.....|...!..\n|
|00001480| ac 8f 0d cb a5 cc 0e 06 | 89 c7 89 cc 89 af 08 aa |........|........|
|00001490| f4 c3 0e 09 21 89 1e 0d | 40 1e 0e 0e 0d 41 40 1e |....!...|@....A@.|
|000014a0| 0f d0 0e 09 0d 5c 22 1e | 11 d0 0e 5c 6e 0e 0e 5c |.....\".|...\n..\|
|000014b0| 22 1e 12 d3 0e 11 40 0d | 5c 22 1e 14 d3 0e 12 40 |".....@.|\".....@|
|000014c0| 0e 0e 5c 22 1e 15 0e 11 | 41 cb a5 1e 16 0e 12 41 |..\"....|A......A|
|000014d0| cb a5 1e 17 0d 0e 0e 5e | cb a5 d8 0d 0e 0e 5a 21 |.......^|......Z!|
|000014e0| cb a5 0d 0e 0e 57 ab 90 | 0e 06 0e 0f 0e 14 0e 15 |.....W..|........|
|000014f0| 0e 16 0e 17 af 06 aa 8e | 0e 0f 0e 06 0e 15 0e 14 |........|........|
|00001500| 0e 17 0e 16 af 06 2e 09 | 42 42 2a 2c 89 10 87 22 |........|BB*,..."|
|00001510| 20 5b 63 61 6c 65 6e 64 | 61 72 2d 63 75 72 72 65 | [calend|ar-curre|
|00001520| 6e 74 2d 74 69 6d 65 2d | 7a 6f 6e 65 2d 63 61 63 |nt-time-|zone-cac|
|00001530| 68 65 20 63 75 72 72 65 | 6e 74 2d 74 69 6d 65 20 |he curre|nt-time |
|00001540| 74 30 20 63 75 72 72 65 | 6e 74 2d 74 69 6d 65 2d |t0 curre|nt-time-|
|00001550| 7a 6f 6e 65 20 74 30 2d | 7a 6f 6e 65 20 74 30 2d |zone t0-|zone t0-|
|00001560| 75 74 63 2d 64 69 66 66 | 20 74 30 2d 6e 61 6d 65 |utc-diff| t0-name|
|00001570| 20 6e 69 6c 20 63 61 6c | 65 6e 64 61 72 2d 6e 65 | nil cal|endar-ne|
|00001580| 78 74 2d 74 69 6d 65 2d | 7a 6f 6e 65 2d 74 72 61 |xt-time-|zone-tra|
|00001590| 6e 73 69 74 69 6f 6e 20 | 74 31 20 74 32 20 36 30 |nsition |t1 t2 60|
|000015a0| 20 30 20 74 31 2d 7a 6f | 6e 65 20 74 31 2d 75 74 | 0 t1-zo|ne t1-ut|
|000015b0| 63 2d 64 69 66 66 20 74 | 31 2d 6e 61 6d 65 20 63 |c-diff t|1-name c|
|000015c0| 61 6c 65 6e 64 61 72 2d | 61 62 73 6f 6c 75 74 65 |alendar-|absolute|
|000015d0| 2d 66 72 6f 6d 2d 74 69 | 6d 65 20 74 31 2d 64 61 |-from-ti|me t1-da|
|000015e0| 74 65 2d 73 65 63 20 74 | 32 2d 64 61 74 65 2d 73 |te-sec t|2-date-s|
|000015f0| 65 63 20 63 61 6c 65 6e | 64 61 72 2d 74 69 6d 65 |ec calen|dar-time|
|00001600| 2d 7a 6f 6e 65 2d 64 61 | 79 6c 69 67 68 74 2d 72 |-zone-da|ylight-r|
|00001610| 75 6c 65 73 20 74 31 2d | 72 75 6c 65 73 20 74 32 |ules t1-|rules t2|
|00001620| 2d 72 75 6c 65 73 20 74 | 31 2d 74 69 6d 65 20 74 |-rules t|1-time t|
|00001630| 32 2d 74 69 6d 65 20 61 | 62 73 5d 20 39 20 28 23 |2-time a|bs] 9 (#|
|00001640| 24 20 2e 20 33 37 38 32 | 29 5d 29 0a 28 63 61 6c |$ . 3782|)]).(cal|
|00001650| 65 6e 64 61 72 2d 63 75 | 72 72 65 6e 74 2d 74 69 |endar-cu|rrent-ti|
|00001660| 6d 65 2d 7a 6f 6e 65 29 | 0a 23 40 31 39 31 20 2a |me-zone)|.#@191 *|
|00001670| 4e 75 6d 62 65 72 20 6f | 66 20 6d 69 6e 75 74 65 |Number o|f minute|
|00001680| 73 20 64 69 66 66 65 72 | 65 6e 63 65 20 62 65 74 |s differ|ence bet|
|00001690| 77 65 65 6e 20 6c 6f 63 | 61 6c 20 73 74 61 6e 64 |ween loc|al stand|
|000016a0| 61 72 64 20 74 69 6d 65 | 20 61 74 0a 60 63 61 6c |ard time| at.`cal|
|000016b0| 65 6e 64 61 72 2d 6c 6f | 63 61 74 69 6f 6e 2d 6e |endar-lo|cation-n|
|000016c0| 61 6d 65 27 20 61 6e 64 | 20 43 6f 6f 72 64 69 6e |ame' and| Coordin|
|000016d0| 61 74 65 64 20 55 6e 69 | 76 65 72 73 61 6c 20 28 |ated Uni|versal (|
|000016e0| 47 72 65 65 6e 77 69 63 | 68 29 20 54 69 6d 65 2e |Greenwic|h) Time.|
|000016f0| 20 20 46 6f 72 0a 65 78 | 61 6d 70 6c 65 2c 20 2d |  For.ex|ample, -|
|00001700| 33 30 30 20 66 6f 72 20 | 4e 65 77 20 59 6f 72 6b |300 for |New York|
|00001710| 20 43 69 74 79 2c 20 2d | 34 38 30 20 66 6f 72 20 | City, -|480 for |
|00001720| 4c 6f 73 20 41 6e 67 65 | 6c 65 73 2e 1f 0a 28 64 |Los Ange|les...(d|
|00001730| 65 66 76 61 72 20 63 61 | 6c 65 6e 64 61 72 2d 74 |efvar ca|lendar-t|
|00001740| 69 6d 65 2d 7a 6f 6e 65 | 20 28 62 79 74 65 2d 63 |ime-zone| (byte-c|
|00001750| 6f 64 65 20 22 08 40 ae | 81 c1 87 22 20 5b 63 61 |ode ".@.|..." [ca|
|00001760| 6c 65 6e 64 61 72 2d 63 | 75 72 72 65 6e 74 2d 74 |lendar-c|urrent-t|
|00001770| 69 6d 65 2d 7a 6f 6e 65 | 2d 63 61 63 68 65 20 2d |ime-zone|-cache -|
|00001780| 33 30 30 5d 20 31 29 20 | 28 23 24 20 2e 20 2d 35 |300] 1) |(#$ . -5|
|00001790| 37 34 33 29 29 0a 23 40 | 31 34 31 20 2a 4e 75 6d |743)).#@|141 *Num|
|000017a0| 62 65 72 20 6f 66 20 6d | 69 6e 75 74 65 73 20 64 |ber of m|inutes d|
|000017b0| 69 66 66 65 72 65 6e 63 | 65 20 62 65 74 77 65 65 |ifferenc|e betwee|
|000017c0| 6e 20 64 61 79 6c 69 67 | 68 74 20 73 61 76 69 6e |n daylig|ht savin|
|000017d0| 67 73 20 61 6e 64 20 73 | 74 61 6e 64 61 72 64 20 |gs and s|tandard |
|000017e0| 74 69 6d 65 2e 0a 20 20 | 0a 49 66 20 74 68 65 20 |time..  |.If the |
|000017f0| 6c 6f 63 61 6c 65 20 6e | 65 76 65 72 20 75 73 65 |locale n|ever use|
|00001800| 73 20 64 61 79 6c 69 67 | 68 74 20 73 61 76 69 6e |s daylig|ht savin|
|00001810| 67 73 20 74 69 6d 65 2c | 20 73 65 74 20 74 68 69 |gs time,| set thi|
|00001820| 73 20 74 6f 20 30 2e 1f | 0a 28 64 65 66 76 61 72 |s to 0..|.(defvar|
|00001830| 20 63 61 6c 65 6e 64 61 | 72 2d 64 61 79 6c 69 67 | calenda|r-daylig|
|00001840| 68 74 2d 74 69 6d 65 2d | 6f 66 66 73 65 74 20 28 |ht-time-|offset (|
|00001850| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 41 40 ae 81 |byte-cod|e ".A@..|
|00001860| c1 87 22 20 5b 63 61 6c | 65 6e 64 61 72 2d 63 75 |.." [cal|endar-cu|
|00001870| 72 72 65 6e 74 2d 74 69 | 6d 65 2d 7a 6f 6e 65 2d |rrent-ti|me-zone-|
|00001880| 63 61 63 68 65 20 36 30 | 5d 20 31 29 20 28 23 24 |cache 60|] 1) (#$|
|00001890| 20 2e 20 2d 36 30 34 34 | 29 29 0a 23 40 31 33 30 | . -6044|)).#@130|
|000018a0| 20 2a 41 62 62 72 65 76 | 69 61 74 65 64 20 6e 61 | *Abbrev|iated na|
|000018b0| 6d 65 20 6f 66 20 73 74 | 61 6e 64 61 72 64 20 74 |me of st|andard t|
|000018c0| 69 6d 65 20 7a 6f 6e 65 | 20 61 74 20 60 63 61 6c |ime zone| at `cal|
|000018d0| 65 6e 64 61 72 2d 6c 6f | 63 61 74 69 6f 6e 2d 6e |endar-lo|cation-n|
|000018e0| 61 6d 65 27 2e 0a 46 6f | 72 20 65 78 61 6d 70 6c |ame'..Fo|r exampl|
|000018f0| 65 2c 20 22 45 53 54 22 | 20 69 6e 20 4e 65 77 20 |e, "EST"| in New |
|00001900| 59 6f 72 6b 20 43 69 74 | 79 2c 20 22 50 53 54 22 |York Cit|y, "PST"|
|00001910| 20 66 6f 72 20 4c 6f 73 | 20 41 6e 67 65 6c 65 73 | for Los| Angeles|
|00001920| 2e 1f 0a 28 64 65 66 76 | 61 72 20 63 61 6c 65 6e |...(defv|ar calen|
|00001930| 64 61 72 2d 73 74 61 6e | 64 61 72 64 2d 74 69 6d |dar-stan|dard-tim|
|00001940| 65 2d 7a 6f 6e 65 2d 6e | 61 6d 65 20 28 62 79 74 |e-zone-n|ame (byt|
|00001950| 65 2d 63 6f 64 65 20 22 | 08 41 41 40 ae 81 c1 87 |e-code "|.AA@....|
|00001960| 22 20 5b 63 61 6c 65 6e | 64 61 72 2d 63 75 72 72 |" [calen|dar-curr|
|00001970| 65 6e 74 2d 74 69 6d 65 | 2d 7a 6f 6e 65 2d 63 61 |ent-time|-zone-ca|
|00001980| 63 68 65 20 22 45 53 54 | 22 5d 20 31 29 20 28 23 |che "EST|"] 1) (#|
|00001990| 24 20 2e 20 2d 36 33 30 | 35 29 29 0a 23 40 31 33 |$ . -630|5)).#@13|
|000019a0| 38 20 2a 41 62 62 72 65 | 76 69 61 74 65 64 20 6e |8 *Abbre|viated n|
|000019b0| 61 6d 65 20 6f 66 20 64 | 61 79 6c 69 67 68 74 2d |ame of d|aylight-|
|000019c0| 73 61 76 69 6e 67 73 20 | 74 69 6d 65 20 7a 6f 6e |savings |time zon|
|000019d0| 65 20 61 74 20 60 63 61 | 6c 65 6e 64 61 72 2d 6c |e at `ca|lendar-l|
|000019e0| 6f 63 61 74 69 6f 6e 2d | 6e 61 6d 65 27 2e 0a 46 |ocation-|name'..F|
|000019f0| 6f 72 20 65 78 61 6d 70 | 6c 65 2c 20 22 45 44 54 |or examp|le, "EDT|
|00001a00| 22 20 69 6e 20 4e 65 77 | 20 59 6f 72 6b 20 43 69 |" in New| York Ci|
|00001a10| 74 79 2c 20 22 50 44 54 | 22 20 66 6f 72 20 4c 6f |ty, "PDT|" for Lo|
|00001a20| 73 20 41 6e 67 65 6c 65 | 73 2e 1f 0a 28 64 65 66 |s Angele|s...(def|
|00001a30| 76 61 72 20 63 61 6c 65 | 6e 64 61 72 2d 64 61 79 |var cale|ndar-day|
|00001a40| 6c 69 67 68 74 2d 74 69 | 6d 65 2d 7a 6f 6e 65 2d |light-ti|me-zone-|
|00001a50| 6e 61 6d 65 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |name (by|te-code |
|00001a60| 22 c0 09 9b 40 ae 81 c2 | 87 22 20 5b 33 20 63 61 |"...@...|." [3 ca|
|00001a70| 6c 65 6e 64 61 72 2d 63 | 75 72 72 65 6e 74 2d 74 |lendar-c|urrent-t|
|00001a80| 69 6d 65 2d 7a 6f 6e 65 | 2d 63 61 63 68 65 20 22 |ime-zone|-cache "|
|00001a90| 45 44 54 22 5d 20 32 29 | 20 28 23 24 20 2e 20 2d |EDT"] 2)| (#$ . -|
|00001aa0| 36 35 36 32 29 29 0a 28 | 70 75 74 20 27 63 61 6c |6562)).(|put 'cal|
|00001ab0| 65 6e 64 61 72 2d 64 61 | 79 6c 69 67 68 74 2d 73 |endar-da|ylight-s|
|00001ac0| 61 76 69 6e 67 73 2d 73 | 74 61 72 74 73 20 27 72 |avings-s|tarts 'r|
|00001ad0| 69 73 6b 79 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |isky-loc|al-varia|
|00001ae0| 62 6c 65 20 74 29 0a 23 | 40 36 39 30 20 2a 53 65 |ble t).#|@690 *Se|
|00001af0| 78 70 20 67 69 76 69 6e | 67 20 74 68 65 20 64 61 |xp givin|g the da|
|00001b00| 74 65 20 6f 6e 20 77 68 | 69 63 68 20 64 61 79 6c |te on wh|ich dayl|
|00001b10| 69 67 68 74 20 73 61 76 | 69 6e 67 73 20 74 69 6d |ight sav|ings tim|
|00001b20| 65 20 73 74 61 72 74 73 | 2e 0a 54 68 69 73 20 69 |e starts|..This i|
|00001b30| 73 20 61 6e 20 65 78 70 | 72 65 73 73 69 6f 6e 20 |s an exp|ression |
|00001b40| 69 6e 20 74 68 65 20 76 | 61 72 69 61 62 6c 65 20 |in the v|ariable |
|00001b50| 60 79 65 61 72 27 20 77 | 68 6f 73 65 20 76 61 6c |`year' w|hose val|
|00001b60| 75 65 20 67 69 76 65 73 | 20 74 68 65 20 47 72 65 |ue gives| the Gre|
|00001b70| 67 6f 72 69 61 6e 0a 64 | 61 74 65 20 69 6e 20 74 |gorian.d|ate in t|
|00001b80| 68 65 20 66 6f 72 6d 20 | 28 6d 6f 6e 74 68 20 64 |he form |(month d|
|00001b90| 61 79 20 79 65 61 72 29 | 20 6f 6e 20 77 68 69 63 |ay year)| on whic|
|00001ba0| 68 20 64 61 79 6c 69 67 | 68 74 20 73 61 76 69 6e |h daylig|ht savin|
|00001bb0| 67 73 20 74 69 6d 65 20 | 73 74 61 72 74 73 2e 20 |gs time |starts. |
|00001bc0| 20 49 74 20 69 73 0a 75 | 73 65 64 20 74 6f 20 64 | It is.u|sed to d|
|00001bd0| 65 74 65 72 6d 69 6e 65 | 20 74 68 65 20 73 74 61 |etermine| the sta|
|00001be0| 72 74 69 6e 67 20 64 61 | 74 65 20 6f 66 20 64 61 |rting da|te of da|
|00001bf0| 79 6c 69 67 68 74 20 73 | 61 76 69 6e 67 73 20 74 |ylight s|avings t|
|00001c00| 69 6d 65 20 66 6f 72 20 | 74 68 65 20 68 6f 6c 69 |ime for |the holi|
|00001c10| 64 61 79 0a 6c 69 73 74 | 20 61 6e 64 20 66 6f 72 |day.list| and for|
|00001c20| 20 63 6f 72 72 65 63 74 | 69 6e 67 20 74 69 6d 65 | correct|ing time|
|00001c30| 73 20 6f 66 20 64 61 79 | 20 69 6e 20 74 68 65 20 |s of day| in the |
|00001c40| 73 6f 6c 61 72 20 61 6e | 64 20 6c 75 6e 61 72 20 |solar an|d lunar |
|00001c50| 63 61 6c 63 75 6c 61 74 | 69 6f 6e 73 2e 0a 0a 46 |calculat|ions...F|
|00001c60| 6f 72 20 65 78 61 6d 70 | 6c 65 2c 20 69 66 20 64 |or examp|le, if d|
|00001c70| 61 79 6c 69 67 68 74 20 | 73 61 76 69 6e 67 73 20 |aylight |savings |
|00001c80| 74 69 6d 65 20 69 73 20 | 6d 61 6e 64 61 74 65 64 |time is |mandated|
|00001c90| 20 74 6f 20 73 74 61 72 | 74 20 6f 6e 20 4f 63 74 | to star|t on Oct|
|00001ca0| 6f 62 65 72 20 31 2c 0a | 79 6f 75 20 77 6f 75 6c |ober 1,.|you woul|
|00001cb0| 64 20 73 65 74 20 60 63 | 61 6c 65 6e 64 61 72 2d |d set `c|alendar-|
|00001cc0| 64 61 79 6c 69 67 68 74 | 2d 73 61 76 69 6e 67 73 |daylight|-savings|
|00001cd0| 2d 73 74 61 72 74 73 27 | 20 74 6f 0a 0a 20 20 20 |-starts'| to..   |
|00001ce0| 20 20 20 27 28 31 30 20 | 31 20 79 65 61 72 29 0a |   '(10 |1 year).|
|00001cf0| 0a 49 66 20 69 74 20 73 | 74 61 72 74 73 20 6f 6e |.If it s|tarts on|
|00001d00| 20 74 68 65 20 66 69 72 | 73 74 20 53 75 6e 64 61 | the fir|st Sunda|
|00001d10| 79 20 69 6e 20 41 70 72 | 69 6c 2c 20 79 6f 75 20 |y in Apr|il, you |
|00001d20| 77 6f 75 6c 64 20 73 65 | 74 20 69 74 20 74 6f 0a |would se|t it to.|
|00001d30| 0a 20 20 20 20 20 20 27 | 28 63 61 6c 65 6e 64 61 |.      '|(calenda|
|00001d40| 72 2d 6e 74 68 2d 6e 61 | 6d 65 64 2d 64 61 79 20 |r-nth-na|med-day |
|00001d50| 31 20 30 20 34 20 79 65 | 61 72 29 0a 0a 49 66 20 |1 0 4 ye|ar)..If |
|00001d60| 74 68 65 20 6c 6f 63 61 | 6c 65 20 6e 65 76 65 72 |the loca|le never|
|00001d70| 20 75 73 65 73 20 64 61 | 79 6c 69 67 68 74 20 73 | uses da|ylight s|
|00001d80| 61 76 69 6e 67 73 20 74 | 69 6d 65 2c 20 73 65 74 |avings t|ime, set|
|00001d90| 20 74 68 69 73 20 74 6f | 20 6e 69 6c 2e 1f 0a 28 | this to| nil...(|
|00001da0| 64 65 66 76 61 72 20 63 | 61 6c 65 6e 64 61 72 2d |defvar c|alendar-|
|00001db0| 64 61 79 6c 69 67 68 74 | 2d 73 61 76 69 6e 67 73 |daylight|-savings|
|00001dc0| 2d 73 74 61 72 74 73 20 | 28 62 79 74 65 2d 63 6f |-starts |(byte-co|
|00001dd0| 64 65 20 22 c0 09 9b 40 | ae 87 5c 6e c3 55 3f ad |de "...@|..\n.U?.|
|00001de0| 81 c4 87 22 20 5b 34 20 | 63 61 6c 65 6e 64 61 72 |..." [4 |calendar|
|00001df0| 2d 63 75 72 72 65 6e 74 | 2d 74 69 6d 65 2d 7a 6f |-current|-time-zo|
|00001e00| 6e 65 2d 63 61 63 68 65 | 20 63 61 6c 65 6e 64 61 |ne-cache| calenda|
|00001e10| 72 2d 64 61 79 6c 69 67 | 68 74 2d 74 69 6d 65 2d |r-daylig|ht-time-|
|00001e20| 6f 66 66 73 65 74 20 30 | 20 28 63 61 6c 65 6e 64 |offset 0| (calend|
|00001e30| 61 72 2d 6e 74 68 2d 6e | 61 6d 65 64 2d 64 61 79 |ar-nth-n|amed-day|
|00001e40| 20 31 20 30 20 34 20 79 | 65 61 72 29 5d 20 32 29 | 1 0 4 y|ear)] 2)|
|00001e50| 20 28 23 24 20 2e 20 2d | 36 38 39 33 29 29 0a 28 | (#$ . -|6893)).(|
|00001e60| 70 75 74 20 27 63 61 6c | 65 6e 64 61 72 2d 64 61 |put 'cal|endar-da|
|00001e70| 79 6c 69 67 68 74 2d 73 | 61 76 69 6e 67 73 2d 65 |ylight-s|avings-e|
|00001e80| 6e 64 73 20 27 72 69 73 | 6b 79 2d 6c 6f 63 61 6c |nds 'ris|ky-local|
|00001e90| 2d 76 61 72 69 61 62 6c | 65 20 74 29 0a 23 40 35 |-variabl|e t).#@5|
|00001ea0| 35 33 20 2a 53 65 78 70 | 20 67 69 76 69 6e 67 20 |53 *Sexp| giving |
|00001eb0| 74 68 65 20 64 61 74 65 | 20 6f 6e 20 77 68 69 63 |the date| on whic|
|00001ec0| 68 20 64 61 79 6c 69 67 | 68 74 20 73 61 76 69 6e |h daylig|ht savin|
|00001ed0| 67 73 20 74 69 6d 65 20 | 65 6e 64 73 2e 0a 54 68 |gs time |ends..Th|
|00001ee0| 69 73 20 69 73 20 61 6e | 20 65 78 70 72 65 73 73 |is is an| express|
|00001ef0| 69 6f 6e 20 69 6e 20 74 | 68 65 20 76 61 72 69 61 |ion in t|he varia|
|00001f00| 62 6c 65 20 60 79 65 61 | 72 27 20 77 68 6f 73 65 |ble `yea|r' whose|
|00001f10| 20 76 61 6c 75 65 20 67 | 69 76 65 73 20 74 68 65 | value g|ives the|
|00001f20| 20 47 72 65 67 6f 72 69 | 61 6e 0a 64 61 74 65 20 | Gregori|an.date |
|00001f30| 69 6e 20 74 68 65 20 66 | 6f 72 6d 20 28 6d 6f 6e |in the f|orm (mon|
|00001f40| 74 68 20 64 61 79 20 79 | 65 61 72 29 20 6f 6e 20 |th day y|ear) on |
|00001f50| 77 68 69 63 68 20 64 61 | 79 6c 69 67 68 74 20 73 |which da|ylight s|
|00001f60| 61 76 69 6e 67 73 20 74 | 69 6d 65 20 65 6e 64 73 |avings t|ime ends|
|00001f70| 2e 20 20 49 74 20 69 73 | 0a 75 73 65 64 20 74 6f |.  It is|.used to|
|00001f80| 20 64 65 74 65 72 6d 69 | 6e 65 20 74 68 65 20 73 | determi|ne the s|
|00001f90| 74 61 72 74 69 6e 67 20 | 64 61 74 65 20 6f 66 20 |tarting |date of |
|00001fa0| 64 61 79 6c 69 67 68 74 | 20 73 61 76 69 6e 67 73 |daylight| savings|
|00001fb0| 20 74 69 6d 65 20 66 6f | 72 20 74 68 65 20 68 6f | time fo|r the ho|
|00001fc0| 6c 69 64 61 79 0a 6c 69 | 73 74 20 61 6e 64 20 66 |liday.li|st and f|
|00001fd0| 6f 72 20 63 6f 72 72 65 | 63 74 69 6e 67 20 74 69 |or corre|cting ti|
|00001fe0| 6d 65 73 20 6f 66 20 64 | 61 79 20 69 6e 20 74 68 |mes of d|ay in th|
|00001ff0| 65 20 73 6f 6c 61 72 20 | 61 6e 64 20 6c 75 6e 61 |e solar |and luna|
|00002000| 72 20 63 61 6c 63 75 6c | 61 74 69 6f 6e 73 2e 0a |r calcul|ations..|
|00002010| 0a 46 6f 72 20 65 78 61 | 6d 70 6c 65 2c 20 69 66 |.For exa|mple, if|
|00002020| 20 64 61 79 6c 69 67 68 | 74 20 73 61 76 69 6e 67 | dayligh|t saving|
|00002030| 73 20 74 69 6d 65 20 65 | 6e 64 73 20 6f 6e 20 74 |s time e|nds on t|
|00002040| 68 65 20 6c 61 73 74 20 | 53 75 6e 64 61 79 20 69 |he last |Sunday i|
|00002050| 6e 20 4f 63 74 6f 62 65 | 72 3a 0a 0a 20 20 20 20 |n Octobe|r:..    |
|00002060| 20 20 27 28 63 61 6c 65 | 6e 64 61 72 2d 6e 74 68 |  '(cale|ndar-nth|
|00002070| 2d 6e 61 6d 65 64 2d 64 | 61 79 20 2d 31 20 30 20 |-named-d|ay -1 0 |
|00002080| 31 30 20 79 65 61 72 29 | 0a 0a 49 66 20 74 68 65 |10 year)|..If the|
|00002090| 20 6c 6f 63 61 6c 65 20 | 6e 65 76 65 72 20 75 73 | locale |never us|
|000020a0| 65 73 20 64 61 79 6c 69 | 67 68 74 20 73 61 76 69 |es dayli|ght savi|
|000020b0| 6e 67 73 20 74 69 6d 65 | 2c 20 73 65 74 20 74 68 |ngs time|, set th|
|000020c0| 69 73 20 74 6f 20 6e 69 | 6c 2e 1f 0a 28 64 65 66 |is to ni|l...(def|
|000020d0| 76 61 72 20 63 61 6c 65 | 6e 64 61 72 2d 64 61 79 |var cale|ndar-day|
|000020e0| 6c 69 67 68 74 2d 73 61 | 76 69 6e 67 73 2d 65 6e |light-sa|vings-en|
|000020f0| 64 73 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |ds (byte|-code ".|
|00002100| 09 9b 40 ae 87 5c 6e c3 | 55 3f ad 81 c4 87 22 20 |..@..\n.|U?...." |
|00002110| 5b 35 20 63 61 6c 65 6e | 64 61 72 2d 63 75 72 72 |[5 calen|dar-curr|
|00002120| 65 6e 74 2d 74 69 6d 65 | 2d 7a 6f 6e 65 2d 63 61 |ent-time|-zone-ca|
|00002130| 63 68 65 20 63 61 6c 65 | 6e 64 61 72 2d 64 61 79 |che cale|ndar-day|
|00002140| 6c 69 67 68 74 2d 74 69 | 6d 65 2d 6f 66 66 73 65 |light-ti|me-offse|
|00002150| 74 20 30 20 28 63 61 6c | 65 6e 64 61 72 2d 6e 74 |t 0 (cal|endar-nt|
|00002160| 68 2d 6e 61 6d 65 64 2d | 64 61 79 20 2d 31 20 30 |h-named-|day -1 0|
|00002170| 20 31 30 20 79 65 61 72 | 29 5d 20 32 29 20 28 23 | 10 year|)] 2) (#|
|00002180| 24 20 2e 20 2d 37 38 34 | 33 29 29 0a 23 40 37 30 |$ . -784|3)).#@70|
|00002190| 20 2a 4e 75 6d 62 65 72 | 20 6f 66 20 6d 69 6e 75 | *Number| of minu|
|000021a0| 74 65 73 20 61 66 74 65 | 72 20 6d 69 64 6e 69 67 |tes afte|r midnig|
|000021b0| 68 74 20 74 68 61 74 20 | 64 61 79 6c 69 67 68 74 |ht that |daylight|
|000021c0| 20 73 61 76 69 6e 67 73 | 20 74 69 6d 65 20 73 74 | savings| time st|
|000021d0| 61 72 74 73 2e 1f 0a 28 | 64 65 66 76 61 72 20 63 |arts...(|defvar c|
|000021e0| 61 6c 65 6e 64 61 72 2d | 64 61 79 6c 69 67 68 74 |alendar-|daylight|
|000021f0| 2d 73 61 76 69 6e 67 73 | 2d 73 74 61 72 74 73 2d |-savings|-starts-|
|00002200| 74 69 6d 65 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |time (by|te-code |
|00002210| 22 c0 09 9b 40 ae 81 c2 | 87 22 20 5b 36 20 63 61 |"...@...|." [6 ca|
|00002220| 6c 65 6e 64 61 72 2d 63 | 75 72 72 65 6e 74 2d 74 |lendar-c|urrent-t|
|00002230| 69 6d 65 2d 7a 6f 6e 65 | 2d 63 61 63 68 65 20 31 |ime-zone|-cache 1|
|00002240| 32 30 5d 20 32 29 20 28 | 23 24 20 2e 20 2d 38 35 |20] 2) (|#$ . -85|
|00002250| 39 33 29 29 0a 23 40 36 | 38 20 2a 4e 75 6d 62 65 |93)).#@6|8 *Numbe|
|00002260| 72 20 6f 66 20 6d 69 6e | 75 74 65 73 20 61 66 74 |r of min|utes aft|
|00002270| 65 72 20 6d 69 64 6e 69 | 67 68 74 20 74 68 61 74 |er midni|ght that|
|00002280| 20 64 61 79 6c 69 67 68 | 74 20 73 61 76 69 6e 67 | dayligh|t saving|
|00002290| 73 20 74 69 6d 65 20 65 | 6e 64 73 2e 1f 0a 28 64 |s time e|nds...(d|
|000022a0| 65 66 76 61 72 20 63 61 | 6c 65 6e 64 61 72 2d 64 |efvar ca|lendar-d|
|000022b0| 61 79 6c 69 67 68 74 2d | 73 61 76 69 6e 67 73 2d |aylight-|savings-|
|000022c0| 65 6e 64 73 2d 74 69 6d | 65 20 28 62 79 74 65 2d |ends-tim|e (byte-|
|000022d0| 63 6f 64 65 20 22 c0 09 | 9b 40 ae 81 5c 6e 87 22 |code "..|.@..\n."|
|000022e0| 20 5b 37 20 63 61 6c 65 | 6e 64 61 72 2d 63 75 72 | [7 cale|ndar-cur|
|000022f0| 72 65 6e 74 2d 74 69 6d | 65 2d 7a 6f 6e 65 2d 63 |rent-tim|e-zone-c|
|00002300| 61 63 68 65 20 63 61 6c | 65 6e 64 61 72 2d 64 61 |ache cal|endar-da|
|00002310| 79 6c 69 67 68 74 2d 73 | 61 76 69 6e 67 73 2d 73 |ylight-s|avings-s|
|00002320| 74 61 72 74 73 2d 74 69 | 6d 65 5d 20 32 29 20 28 |tarts-ti|me] 2) (|
|00002330| 23 24 20 2e 20 2d 38 37 | 39 34 29 29 0a 28 70 72 |#$ . -87|94)).(pr|
|00002340| 6f 76 69 64 65 20 27 63 | 61 6c 2d 64 73 74 29 0a |ovide 'c|al-dst).|
+--------+-------------------------+-------------------------+--------+--------+